home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 December / Dec99.iso / Data / Main.dxr / 00003_Simple Scripts.ls < prev    next >
Encoding:
Text File  |  1999-10-05  |  851 b   |  41 lines
  1. on vis StartSprite, endSprite
  2.   theSprite = StartSprite
  3.   if endSprite = VOID then
  4.     sprite(theSprite).visible = 1
  5.   else
  6.     repeat with theSprite = StartSprite to endSprite
  7.       sprite(theSprite).visible = 1
  8.     end repeat
  9.   end if
  10. end
  11.  
  12. on devis StartSprite, endSprite
  13.   theSprite = StartSprite
  14.   if endSprite = VOID then
  15.     sprite(theSprite).visible = 0
  16.   else
  17.     repeat with theSprite = StartSprite to endSprite
  18.       sprite(theSprite).visible = 0
  19.     end repeat
  20.   end if
  21. end
  22.  
  23. on changemember theSprite, NewSprite
  24.   if integerp(NewSprite) = 1 then
  25.     set the member of sprite theSprite to member(NewSprite)
  26.   else
  27.     set the member of sprite theSprite to the number of member NewSprite
  28.   end if
  29. end
  30.  
  31. on KillMousedown
  32.   repeat while the mouseDown
  33.     nothing()
  34.   end repeat
  35. end
  36.  
  37. on CheckForMouseDown
  38.   if the mouseDown = 1 then
  39.   end if
  40. end
  41.